<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>2872</cardID>
<listID>3603</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>480</height>
</cardSize>
<script>ON OPENSTACKSET RECT OF FLD"NOTE" TO -1,-1,WIDTH OF CARD WINDOW+1,HEIGHT OF CARD WINDOW-15set the loc of BG BUTTON"RESIZE" to the width of card window - 8,the height of card window - 8END OPENSTACKON RESUMESTACK-- GLOBAL WDW-- IF NUMBER OF LINES OF THE WINDOWS<8 THEN-- IF WDW IS 1 THEN GO HOME-- SEND CLOSESTACK TO THIS STACK-- END IFEND RESUMESTACKON CLOSESTACKPUT EMPTY INTO FLD"NOTE"IF FREESIZE OF THIS STACK>SIZE OF THIS STACK DIV 10 THENDOMENU"COMPACT STACK"END IFPASS CLOSESTACKEND CLOSESTACKON RESIZEselect after text of fld"NOTE"PUT ITEM 2 OF THE SELECTEDLOC+SCROLL OF FLD"NOTE" INTO HTIF HT>342-TOP OF FLD"NOTE" THEN PUT 342-TOP OF FLD"NOTE" INTO HTIF HT<55 THEN PUT 55 INTO HTSET RECT OF FLD"NOTE" TO LEFT OF FLD"NOTE",TOP OF FLD"NOTE",RIGHT OF FLD"NOTE",TOP OF FLD"NOTE"+HT+1SET RECT OF CARD WINDOW TO LEFT OF CARD WINDOW,TOP OF CARD WINDOW,RIGHT OF CARD WINDOW,TOP OF CARD WINDOW+TOP OF FLD"NOTE"+HTEND RESIZE-- ON IDLE-- IF THE SELECTEDLOC IS EMPTY AND THE SELECTEDFIELD IS NOT "message box"-- THEN SELECT AFTER TEXT OF FLD"NOTE"-- END IDLEON CLOSGLOBAL NMA,IDT,MAT--,CDN,STN,SLOCHIDE CARD WINDOWPUT THE SHORT NAME OF THIS STACK INTO M1DELETE CHAR 1 OF M1GO (ITEM 2 OF LINE M1 OF NMA&LAST LINE OF NMA)PUT EMPTY INTO LINE M1 OF NMAEND CLOSon CLOSEGLOBAL NMA,IDT,MAT,RLIN,TP,BT--,CDN,STN,SLOCIF NMA IS EMPTY THEN --- FUCK! PhaaaaaaaaaaaaacK!!!!PASS CLOSEEND IF-- PUT THE TICKS INTO THIDE CARD WINDOWPUT THE SHORT NAME OF THIS STACK INTO M1DELETE CHAR 1 OF M1PUT FLD"NOTE" INTO NTGO (ITEM 2 OF LINE M1 OF NMA&LAST LINE OF NMA)PUT ITEM 1 OF LINE M1 OF NMA INTO NIDPUT NT INTO FLD (NID-1)PUT EMPTY INTO LINE M1 OF NMAHIDE BG BUTTON"INS"HIDE BG BUTTON"GEN"IF VISIBLE OF FLD"INPUT" IS TRUE THENENTFLD 1HIDE FLD"INPUT"END IFIF LINE 1 OF IDT IS NID THEN PUT 1 INTO NRLELSE PUT (NUMBER OF LINES OF CHAR 1 TO OFFSET(RETURN&NID&RETURN,IDT) OF IDT)+1 INTO NRLIF LINE 1 OF MAT=NRL THEN PUT 1 INTO TPELSEIF RETURN&NRL&RETURN IS NOT IN MAT THEN EXIT CLOSEPUT (NUMBER OF LINES OF CHAR 1 TO OFFSET(RETURN&NRL&RETURN,MAT) OF MAT)+1 INTO TPEND IFPUT NRL INTO RLINHYOUJI TP,RLINPUT THE RESULT+TP INTO BTSELECT LINE TP TO BT OF FLD"MAIN"--PUT THE TICKS-Tend CLOSE</script>